unit ProdutorSearchFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, DBGrids, StdCtrls, MainSearchFr, DataRecord;

type

  { TProdutorSearchFrame }

  TProdutorSearchFrame = class(TMainSearchFrame)
    ButtonBuscarMunicipio: TBitBtn;
    uf: TEdit;
    id_municipio: TEdit;
    Nome_municipio: TEdit;
    EditNomeProdutor: TEdit;
    EditNumeroProdutor: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure LocalizarButtonClick(Sender: TObject);
    procedure ButtonBuscarMunicipioClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

uses Initializator, ConnectionDM, ProdutorDM, QueryConditions, MunicipioSearchFr;

{ TProdutorSearchFrame }

procedure TProdutorSearchFrame.ButtonBuscarMunicipioClick(Sender: TObject);
begin
  TheControl.ShowForeignFrame(MunicipioSearchFrame);
end;

procedure TProdutorSearchFrame.LocalizarButtonClick(Sender: TObject);
var
  condicoes: TQueryConditions;
begin
  condicoes := TQueryConditions.Create(CON_AND);
  Condicoes.AddJoinField('p.id_municipio', 'm.id_municipio');
  condicoes.Add('p.id_produtor', EditNumeroProdutor.Text);
  condicoes.AddText('p.nome_produtor', EditNomeProdutor.Text);
  condicoes.Add('m.id_municipio', id_municipio.Text);
  condicoes.AddText('m.nome_municipio', Nome_municipio.Text);
  condicoes.Add('m.uf', AnsiUpperCase(uf.Text));
  MainDataModule.Search(condicoes, 'produtor p, municipio m');
end;

initialization
  {$I produtorsearchfr.lrs}

end.
